home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03116_Script_3116 < prev    next >
Text File  |  1983-01-27  |  2KB  |  59 lines
  1. ------------- PARAMETRI
  2. ------------- CONDIZIONE: mettere in fila le zone sensibili e poi gli hilite
  3.  
  4. ------------- dacast = primo cast dove sono posizionate le zone sensibili
  5. ------------- quanti = numero degli hilite presenti sul cast
  6. ------------- primocan = primo canale su cui sono posizionate le zone sensibili
  7. ------------- primascritta = primo canale su cui sono posizionate le scritte degli hilite
  8. -------------------------------------------------------------------------------------------------------------------
  9.  
  10. on ATT_HILITEC dacast, quanti, primocan, primascritta
  11.   global bloc,ATTORE,MEN  
  12.   set elewin to  string (the windowlist)
  13.   if offset ("popup",elewin) > 0 then
  14.     if the visible of window "popup" = true then 
  15.       exit
  16.     end if
  17.   end if
  18.   if offset ("menubar",elewin) > 0 then
  19.     if the visible of window "menubar" = true then 
  20.       exit
  21.     end if
  22.   end if
  23.   
  24.   if bloc = false then
  25.     
  26.     repeat while the mousecast >=dacast and the mousecast <= dacast + quanti - 1
  27.       set miohilite = the mousecast
  28.       if miohilite >=dacast and miohilite <= dacast + quanti - 1 then
  29.         repeat with mm = 1 to quanti
  30.           set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
  31.           if not voidp (primascritta) then
  32.             set the visible of sprite (primascritta+mm-1) to false
  33.           end if
  34.           
  35.         end repeat
  36.         set the castnum of sprite (miohilite-dacast+primocan) to (miohilite+quanti)
  37.         if not voidp (primascritta) then
  38.           set the visible of sprite (miohilite-dacast+primascritta) to true
  39.         end if
  40.         
  41.         updatestage
  42.       end if
  43.     end repeat
  44.     
  45.     
  46.     if the mousecast < dacast or the mousecast >= dacast + 2*quanti then
  47.       repeat with mm = 1 to quanti
  48.         set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
  49.         if not voidp (primascritta) then
  50.           set the visible of sprite (primascritta+mm-1) to false
  51.         end if
  52.       end repeat
  53.     end if
  54.   end if    
  55. end
  56.  
  57.  
  58.  
  59.